home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
editor
/
wf314.zip
/
WF312PDF.ZIP
/
PS-ANSI.PDV
< prev
next >
Wrap
Text File
|
1994-02-27
|
8KB
|
214 lines
%!PS-Adobe-2.0
%%Title: WORD FUGUE POSTSCRIPT
%%EndComments
statusdict begin 0 setjobtimeout end
/wfdict 120 dict def
wfdict begin
/wfeur [16#80 /fraction
16#81 /quotesingle
16#82 /quotesinglbase 16#83 /florin 16#84 /quotedblbase
16#85 /ellipsis 16#86 /dagger 16#87 /daggerdbl 16#88 /circumflex
16#89 /perthousand 16#8a /Scaron 16#8b /guilsinglleft 16#8c /OE
16#8d /fi 16#8e /fl 16#8f /lslash 16#90 /Lslash
16#91 /zcaron 16#92 /Zcaron
16#93 /quotedblleft 16#94 /quotedblright
16#95 /bullet 16#96 /endash 16#97 /emdash 16#98 /tilde
16#99 /trademark 16#9a /scaron 16#9b /guilsinglright 16#9c /oe
16#9f /Ydieresis
%% 16#a1 /exclamdown a2 /cent 16#a3 /sterling
16#a4 /currency
%%16#a5 /yen
16#a6 /brokenbar
%%16#a7 /section
16#a8 /dieresis 16#a9 /copyright 16#aa /ordfeminine
16#ab /guillemotleft 16#ac /logicalnot 16#ad /minus 16#ae /registered
16#af /macron 16#b0 /degree 16#b1 /plusminus 16#b2 /twosuperior
16#b3 /threesuperior 16#b4 /acute 16#b5 /mu
%%16#b6 /paragraph
16#b7 /periodcentred 16#b8 /cedilla 16#b9 /onesuperior 16#ba /ordmasculine
16#bb /guillemotright 16#bc /onequarter 16#bd /onehalf 16#be /threequarters
16#bf /questiondown 16#c0 /Agrave 16#c1 /Aacute 16#c2 /Acircumflex
16#c3 /Atilde 16#c4 /Adieresis 16#c5 /Aring 16#c6 /AE 16#c7 /Ccedilla
16#c8 /Egrave 16#c9 /Eacute 16#ca /Ecircumflex 16#cb /Edieresis
16#cc /Igrave 16#cd /Iacute 16#ce /Icircumflex 16#cf /Idieresis
16#d0 /Eth 16#d1 /Ntilde 16#d2 /Ograve 16#d3 /Oacute 16#d4 /Ocircumflex
16#d5 /Otilde 16#d6 /Odieresis 16#d7 /multiply 16#d8 /oslash 16#d9 /Ugrave
16#da /Uacute 16#db /Ucircumflex 16#dc /Udieresis 16#dd /Yacute 16#de /Thorn
16#df /germandbls 16#e0 /agrave 16#e1 /aacute 16#e2 /acircumflex
16#e3 /atilde 16#e4 /adieresis 16#e5 /aring 16#e6 /ae 16#e7 /ccedilla
16#e8 /egrave 16#e9 /eacute 16#ea /ecircumflex 16#eb /edieresis
16#ec /igrave 16#ed /iacute 16#ee /icircumflex 16#ef /idieresis
16#f0 /eth 16#f1 /ntilde 16#f2 /ograve 16#f3 /oacute 16#f4 /ocircumflex
16#f5 /otilde 16#f6 /odieresis 16#f7 /divide
16#f8 /oslash 16#f9 /ugrave
16#fa /uacute
16#fb /ucircumflex 16#fc /udieresis
16#fd /yacute 16#fe /Thorn
16#ff /ydieresis
] def
/RE { %% add extra chars to font
/reencode 12 dict def
reencode begin
/newfontname exch def
/basefontname exch def
FontDirectory newfontname known not
{/basefont basefontname findfont def
/newfont basefont maxlength dict def
basefont {exch dup /FID ne
{dup /Encoding eq
{exch dup length array copy newfont 3 1 roll put}
{exch newfont 3 1 roll put} ifelse
}
{pop pop} ifelse
} forall
newfont /FontName newfontname put
wfeur aload
length 2 idiv {newfont /Encoding get 3 1 roll put} repeat
newfontname newfont definefont pop
} if
newfontname
end
} bind def
/hsr { /LH 12 def
/sz 10 def
} bind def
%% define the 35 standard postscript 2.0 fonts
%% first 13 are the standard ones for postscript 1.0
/fcr { hsr /Courier /f0 RE findfont 10 scalefont setfont } bind def
/fci { hsr /Courier-Oblique /f1 RE findfont 10 scalefont setfont } bind def
/fcb { hsr /Courier-Bold /f2 RE findfont 10 scalefont setfont } bind def
/fcbi { hsr /Courier-BoldOblique /f3 RE findfont 10 scalefont setfont } bind def
/fhr { hsr /Helvetica /f4 RE findfont 10 scalefont setfont } bind def
/fhi { hsr /Helvetica-Oblique /f5 RE findfont 10 scalefont setfont } bind def
/fhb { hsr /Helvetica-Bold /f6 RE findfont 10 scalefont setfont } bind def
/fhbi { hsr /Helvetica-BoldOblique /f7 RE findfont 10 scalefont setfont } bind def
/ftr { hsr /Times-Roman /f8 RE findfont 10 scalefont setfont } bind def
/fti { hsr /Times-Italic /f9 RE findfont 10 scalefont setfont } bind def
/ftb { hsr /Times-Bold /f10 RE findfont 10 scalefont setfont } bind def
/ftbi { hsr /Times-BoldItalic /f11 RE findfont 10 scalefont setfont } bind def
/fsy { hsr /Symbol /f12 RE findfont 10 scalefont setfont } bind def
/fag { hsr /AvantGarde-Book /f13 RE findfont 10 scalefont setfont } bind def
/fai { hsr /AvantGarde-BookOblique /f14 RE findfont 10 scalefont setfont } bind def
/fab { hsr /AvantGarde-Demi /f15 RE findfont 10 scalefont setfont } bind def
/fabi { hsr /AvantGarde-DemiOblique /f16 RE findfont 10 scalefont setfont } bind def
/fbk { hsr /Bookman-Light /f17 RE findfont 10 scalefont setfont } bind def
/fbi { hsr /Bookman-LightItalic /f18 RE findfont 10 scalefont setfont } bind def
/fbb { hsr /Bookman-Demi /f19 RE findfont 10 scalefont setfont } bind def
/fbbi { hsr /Bookman-DemiItalic /f20 RE findfont 10 scalefont setfont } bind def
/fnh { hsr /Helvetica-Narrow /f21 RE findfont 10 scalefont setfont } bind def
/fni { hsr /Helvetica-Narrow-Oblique /f22 RE findfont 10 scalefont setfont } bind def
/fnb { hsr /Helvetica-Narrow-Bold /f23 RE findfont 10 scalefont setfont } bind def
/fnbi { hsr /Helvetica-Narrow-BoldOblique /f24 RE findfont 10 scalefont setfont } bind def
/fsc { hsr /NewCenturySchlbk-Roman /f25 RE findfont 10 scalefont setfont } bind def
/fsi { hsr /NewCenturySchlbk-Italic /f26 RE findfont 10 scalefont setfont } bind def
/fsb { hsr /NewCenturySchlbk-Bold /f27 RE findfont 10 scalefont setfont } bind def
/fsbi { hsr /NewCenturySchlbk-BoldItalic /f28 RE findfont 10 scalefont setfont } bind def
/fpr { hsr /Palatino-Roman /f29 RE findfont 10 scalefont setfont } bind def
/fpi { hsr /Palatino-Italic /f30 RE findfont 10 scalefont setfont } bind def
/fpb { hsr /Palatine-Bold /f31 RE findfont 10 scalefont setfont } bind def
/fpbi { hsr /Palatine-BoldItalic /f32 RE findfont 10 scalefont setfont } bind def
/fzi { hsr /ZapfChancery-MediumItalic /f33 RE findfont 10 scalefont setfont } bind def
/fzd { hsr /ZapfDingbats /f34 RE findfont 10 scalefont setfont } bind def
/LH 12 def
/sz 10 def
/sc 1 def
/newl {20 currentpoint exch pop LH sub moveto} bind def
/newp {20 plen 42 sub moveto} bind def
/subsc { gsave
currentpoint LH 4 div sub moveto
currentfont 1 0.6 scale
} bind def
/super {gsave
currentpoint LH 4 div add moveto
currentfont 1 0.6 scale
} bind def
/ssoff { currentpoint pop /cx exch def
grestore
currentpoint exch pop cx exch moveto
} bind def
/SF { %% scale font
dup sz mul /sz exch def %% sz = new point size
dup /sc exch def %% sc = scale factor
dup scale setfont %% scale font to new size
/LH sz 1.2 mul def %% LH = new line height
currentfont
} bind def
%% exch findfont exch scalefont setfont
/PS6Point {%%gsave
currentfont 0.6 SF} bind def
/PS10Point {%%gsave
currentfont 1.0 SF} bind def
/PS12Point {%%gsave
currentfont 1.2 SF} bind def
/PS16Point {%%gsave
currentfont 1.6 SF} bind def
/PS20Point {%%gsave
currentfont 2.0 SF} bind def
/PS40Point {%%gsave
currentfont 4.0 SF} bind def
/unscale {
currentpoint /dy exch def /dx exch def
%%grestore
/LH LH sc div def
/sz sz sc div def
%%dx dy moveto
currentfont 1 sc div dup scale setfont
} bind def
/L { %%width length - draw line
currentpoint /dy exch def /dx exch def
exch dup setlinewidth 0 exch neg rmoveto 0 rlineto stroke newpath
dx dy moveto
} bind def
/Uon {
Ua 0 eq
{currentpoint /Uy exch def /Ux exch def} if
/Ua 1 def
} bind def
/Uoff {
currentpoint
Ua 1 eq
{0.5 setlinewidth
currentpoint 1 sub moveto Ux Uy 1 sub lineto stroke newpath
} if
/Ua 0 def
moveto
} bind def
/_landscape {
0 plen translate -90 rotate
} bind def
/_a4 {
/plen 841.26 def
} bind def
/_letter {
/plen 792 def
} bind def
/_legal {
/plen 1008 def
} bind def
/_exec {
/plen 756 def
} bind def
/ST {
% setpapertray
pop
} bind def
_a4 %